home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / R-Shows / (c)expo88a.d64 / file scratcher (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  2KB  |  73 lines
  1. 10 POKE53280,11:POKE53281,11:POKE788,52
  2. 20 PRINT"[147][159]                          [146]"
  3. 34 PRINT " [144]BOB KOBER[159]   FILE SCRATCH [146]  [144]AUG 9,1984[159]"
  4. 40 PRINT "                          [146][144]":IFYXTHEN90
  5. 50 DR$="0":D=VAL(DR$):QQ=1
  6. 60 DR$= "I"+DR$:OPEN 15,8,15,DR$
  7. 70 GOSUB 570
  8. 80 OPEN 1,8,3,"#":GOSUB 580
  9. 90 PRINT"  [153]'Y'[144][146]TO SCRATCH--[153]'N'[144][146]TO KEEP--[153]'Q'[144][146]TO QUIT"
  10. 100 PRINTTAB(5)"FILE NAME"SPC(11)"ACTION"
  11. 110 PRINTTAB(4)"[183][183][183][183][183][183][183][183][183][183][183]         [183][183][183][183][183][183][183][183][144]":IFQQ>1THEN150
  12. 120 Z$=CHR$(0)
  13. 130 T=18:S=1
  14. 140 IFPEEK(214)>21THENQQ=QQ+1:GOTO700
  15. 150 PRINT#15,"U1:"3;D;T;S
  16. 160 PRINT#15,"B-P:"3;2+32*R
  17. 170 GET#1,A$:IF A$="" THEN A$=Z$
  18. 180 IF ASC(A$)<129 THEN 300
  19. 190 PRINTTAB(5);
  20. 200 FOR K=5+32*R TO 20+32*R
  21. 210 PRINT#15,"B-P:"3;K
  22. 220 GET#1,A$:IF A$="" THEN PRINT" [146]";:GOTO 240
  23. 230 PRINT A$;
  24. 240 NEXT
  25. 250 PRINT"  SCRATCH ?  [146][157]";
  26. 260 GETA$:IFA$<>"Y" AND A$<>"N" ANDA$<>"Q"THEN260
  27. 270 IFA$="Q"THENCLOSE1:CLOSE15:SYS65126
  28. 280 PRINTA$;"[144]"
  29. 290 IF A$="Y" THEN GOSUB 410
  30. 300 R=R+1:IF R<8 THEN 140
  31. 310 PRINT#15,"B-P:"3;0
  32. 320 GET#1,A$:IFA$="" THENA$=Z$
  33. 330 T=ASC(A$)
  34. 340 IFT=0THENPRINT:FORI=1TO20:PRINT"[154][192] ";:FORJ=1TO20:NEXTJ,I
  35. 350 IFT=0THENPRINT"[144]           END OF DIRECTORY.":GOTO490
  36. 360 PRINT#15,"B-P:"3;1
  37. 370 GET#1,A$:IFA$=""THENA$=Z$
  38. 380 S=ASC(A$):PRINT:PRINT "*** NEXT TRACK: ";:NU=T:GOSUB660:PRINT N$;
  39. 390 PRINT TAB(20);"NEXT SECTOR: ";:NU=S:GOSUB 660:PRINT N$;" ***":PRINT
  40. 400 R=0:GOTO140
  41. 410 PRINT"    ARE YOU SURE? "
  42. 420 GETK$:IFK$=""THEN420
  43. 430 IFK$<>"Y"THENPRINT"":GOTO150
  44. 440 PRINTTAB(21)"[145] SCRATCHING FILE [146]"
  45. 450 PRINT#15,"B-P:"3;5+32*R-3
  46. 460 PRINT#1,CHR$(0);
  47. 470 PRINT#15,"U2:"3;D;T;S
  48. 480 GOSUB580:RETURN
  49. 490 CLOSE 1
  50. 500 PRINT"         VALIDATE DISK Y OR N?"
  51. 510 GET V$:IF V$="Y"THEN540
  52. 520 IF V$=""THEN 510
  53. 530 A$="Q":GOTO270
  54. 540 PRINT"          [129] VALIDATING DISK [144][146]"
  55. 550 PRINT#15,("V"+DR$)
  56. 560 GOSUB580:A$="Q":GOTO270
  57. 570 REM CHECK DISK STATUS
  58. 580 INPUT#15,ER,ER$,TR,SE
  59. 590 IF ER=0 THEN RETURN
  60. 600 CLOSE 15:CLOSE 1
  61. 610 PRINT" DISK ERROR! ";
  62. 620 PRINT ER;ER$;TR;SE
  63. 630 PRINT" CORRECT ERROR---ANY KEY TO CONTINUE"
  64. 640 GETA$:IFA$=""THEN640
  65. 650 GOTO10
  66. 660 REM FORMAT (null)S
  67. 670 N$=MID$(STR$(NU),2)
  68. 680 IF LEN(N$)<2 THEN N$="0"+N$
  69. 690 RETURN
  70. 700 PRINT"         ANY KEY TO CONTINUE "
  71. 710 GETA$:IFA$=""THEN710
  72. 720 YX=1:PRINT"[147]":GOTO20
  73.